#!/usr/bin/perl

my $sample = $ARGV[0];
my $splicing_file = $sample . ".splicing_results.txt";
my $infile = $ARGV[1];

system("python tmp.py $sample | perl tally_splices_no_introns.pl ../../references/splice_sites-28_norepeats_with_strands.fa $infile Illumina strand_info.txt > $splicing_file");

